﻿Public Class DangNhapHeThong

    Private Sub DangNhapHeThong_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click
        Me.Close()
    End Sub

    Private Sub btnDangNhap_Click(sender As System.Object, e As System.EventArgs) Handles btnDangNhap.Click
        Dim DangNhap As DangNhapHeThong = New DangNhapHeThong()
        If DangNhap.LoginHeThong(txtTenDangNhap.Text, txtMatKhau.Text) = True Then
            Dim Main As New Form1()
            Main.EnableMenu()
            MessageBox.Show("Đăng Nhập Thành Công", "Thông Báo")
            Me.Close()
        Else
            MessageBox.Show("Thông Tin Đăng Nhập Không Đúng.Vui Lòng Kiểm Tra Lại", "Lỗi Đăng Nhập", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If

    End Sub

    Private Function LoginHeThong(ByVal p1 As String, ByVal p2 As String) As Boolean
        Throw New NotImplementedException
    End Function

End Class